home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 March / 1987-03.d64 / graphic modes (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  70 lines
  1. 10 c=0:for i=0 to 31:read n:c=c+n:poke 828+i,n:next
  2. 20 ifc<>4900thenprint"error in 10-50":stop
  3. 30 data 173,24,208,73,02,141,24,208,96
  4. 40 data160,0,132,251,169,216,133,252,162,4,169,14,145,251,200,208,251,230,252
  5. 50 data 202,208,246,96
  6. 60 sys65409:sys837:v=53248:bk=v+33:pokebk,0
  7. 70 sm=1024:cm=55296:for i=0 to 255:o=172+i+24*int(i/16):pokesm+o,i
  8. 80 poke cm+o,i/16-(i<16):next
  9. 90 poke198,0:bo=peek(bk-1)and15:pokebk-1,14+(bo=14)*14
  10. 100 getr$:on-(r$="")-2*(r$="g")goto100,120
  11. 110 sys828:goto100
  12. 120 if(peek(v+24)and6)=6thensys828
  13. 130 ifsfthenreturn
  14. 140 c=0:fori=0to48:readn:c=c+n:poke679+i,n:next
  15. 150 ifc<>5814thenprint"error in 140-180":stop
  16. 160 data120,169,51,133,1,162,16,160,0,140,193,2
  17. 170 data140,196,2,169,208,141,194,2,169,48,141,197,2,185,1,1,153,1,1,200
  18. 180 data 208,247,238,194,2,238,197,2,202,208,238,169,55,133,1,88,96
  19. 190 c=0:fori=0to27:readn:c=c+n:poke728+i,n:next
  20. 200 ifc<>3724thenprint"error in 190-220":stop
  21. 210 data 160,0,162,24,169,32,141,233,2,140,232,2,173,4,220,153,1,1
  22. 220 data 200,208,247,238,233,2,202,208,241,96
  23. 230 sf=1:sys679:pokev+24,29
  24. 240 cd=12288:t=50:sys728
  25. 250 forb=0to7*t:pokecd+32*8+int(b/t),0:next
  26. 260 fori=0to255:forb=0to7:pokecd+i*8+b,i:next:next
  27. 270 gosub90
  28. 280 fori=0to31:forb=0to7:ad=cd+i*8+b:pokead,peek(ad+2048):next:next
  29. 290 forb=0to7:pokecd+160*8+b,peek(cd+b):next:print"press the return key"
  30. 300 getr$:ifr$<>chr$(13)thenpoke204,0:goto300
  31. 310 poke204,1:forb=0to7:readch:pokecd+b,ch:next
  32. 320 data 130,68,124,84,124,56,16,0
  33. 330 forb=0to7*t:ad=cd+int(b/t):pokead+32*8,peek(ad):next
  34. 340 gosub90
  35. 350 poke53270,peek(53270)or16
  36. 360 gosub90
  37. 370 pokebk+1,10:pokebk+2,1:m$="@ a b c d @":printm$
  38. 380 fori=0to4:forb=0to7:readch:pokecd+i*8+b,ch:next:next
  39. 390 data 68,68,252,152,220,220,48,48
  40. 400 data 48,204,204,204,252,204,204,204,32,136,136,136,168,136,136,136
  41. 410 data 16,68,68,68,84,68,68,68,48,204,204,136,168,136,68,68
  42. 420 forb=0to7:pokecd+32*8+b,0:next
  43. 430 gosub90
  44. 440 pokev+22,8:pokev+17,91
  45. 450 fori=0to3:forcc=1to11:sc=asc(mid$(m$,cc,1)):ifsc<>32thensc=sc+(i-1)*64
  46. 460 o=399+cc+i*40:pokesm+o,sc-64*(sc=-32):pokecm+o,cc/2+1
  47. 470 next:next
  48. 480 gosub90
  49. 490 pokebk+1,1:pokebk+2,7:pokebk+3,11
  50. 500 gosub90
  51. 510 pokev+17,59:hi=8192
  52. 520 fori=0to999:forb=0to7:pokehi+8*i+b,0:next:next
  53. 530 printchr$(147):sys837
  54. 540 o=3843:fori=0to39:pokehi+o+8*i,255:next
  55. 550 fori=0to24:forb=0to7:forn=1to3:ad=hi+5*(n+1)*8+40*8*i+b
  56. 560 pokead,peek(ad)or(16*n)
  57. 570 next:next:next
  58. 580 fori=0to39:pokesm+480+i,i:next
  59. 590 gosub90
  60. 600 pokev+22,24
  61. 610 gosub90
  62. 620 fori=0to24:o=10+40*i:pokecm+o,i:pokesm+5+o,5
  63. 630 pokesm+10+o,i*10:next
  64. 640 fori=0to7:forb=0to7:o=80+26+40*i+b:pokesm+o,18:pokecm+o,6:next:next
  65. 650 fori=2to7:forb=0to7:ad=hi+240+320*i+b:pokead,peek(ad)or16
  66. 660 ae=hi+1812+b*8:pokeae,255:pokeae+1,255
  67. 670 af=hi+280+312*i+b:pokeaf,peek(af)or2^(2*(int(b/2))+1)
  68. 680 next:next
  69. 690 pokebk-1,1:poke198,0:wait198,1:sys65409:end
  70.